10 REM THIS READS IN INPUT LINE INTO X$
20 REM
30 X=512:X$=""
40 IFPEEK(X)THENX$=X$+CHR$(PEEK(X)):X=X+1:GOTO40
50 PRINTCHR$(34)X$CHR$(34)